' Test oh High Precision Square Root b+ 2021-06-03 now with divide$ fixed
' stores square root in clipboard
[
	'remember everything strings
	inps Enter a number to find it's square root;n
	if seq[n,mt]
		end
	fi
	guess = divide[n,2.1]
	other = n
	loopCnt = 0
	[
		loopCnt = a[loopCnt,1]
		. Loop Count: ;loopCnt;
		if seq[mid3[guess,1,105],mid3[lastGuess,1,105]]
			sr = mid3[other,1,101]
			. square root of ;n; is:
			. sr
			. len(other) = ;len[sr]
			clipout sr
			exit
		el
			lastGuess = guess
			sum = add[guess,other]
			guess = divide[sum,2]
			other = divide[n,guess]
		fi
	]
]
